Sub 변수의사용()

    Dim 이름 As String
    Dim 생년월일 As Date
    Dim 나이 As Long
    
    이름 = "홍길동"
    생년월일 = #1/1/1990#
    나이 = Year(Date) - Year(생년월일) + 1

    Range("B3").Value = 이름
    Range("C3").Value = 생년월일
    Range("D3").Value = 나이
    
End Sub